unit MainModule;

interface

uses
  uniGUIMainModule, SysUtils, Classes, DBXFirebird, DB, SqlExpr, FMTBcd,
  DBClient, Provider;

type
  TUniMainModule = class(TUniGUIMainModule)
    SQLConnection_Reg1: TSQLConnection;
    SQLQuery_Reg1: TSQLQuery;
    DataSetProvider_Reg1: TDataSetProvider;
    ClientDataSet_Reg: TClientDataSet;
    SQLQuery_Reg1LOGIN: TStringField;
    SQLQuery_Reg1COD_GENERAL_USU: TLargeintField;
    SQLQuery_Reg1CLAVE: TStringField;
    SQLQuery_Reg1CADUCA: TDateField;
    SQLQuery_Reg1PERFIL_PRIVILEGIO: TStringField;
    SQLQuery_Reg1FECHA_CARGA: TDateField;
    SQLQuery_Reg1OPERADOR: TStringField;
    ClientDataSet_RegLOGIN: TStringField;
    ClientDataSet_RegCOD_GENERAL_USU: TLargeintField;
    ClientDataSet_RegCLAVE: TStringField;
    ClientDataSet_RegCADUCA: TDateField;
    ClientDataSet_RegPERFIL_PRIVILEGIO: TStringField;
    ClientDataSet_RegFECHA_CARGA: TDateField;
    ClientDataSet_RegOPERADOR: TStringField;
    qryCodGeneral: TSQLQuery;
    cdsCodGeneral: TClientDataSet;
    provCodGeneral: TDataSetProvider;
    cdsCodGeneralCOD_GENERAL: TIntegerField;
  private
    { Private declarations }
  public
    { Public declarations }
  end;

function UniMainModule: TUniMainModule;

implementation

{$R *.dfm}

uses
  UniGUIVars, ServerModule, uniGUIApplication;

function UniMainModule: TUniMainModule;
begin
  Result := TUniMainModule(UniApplication.UniMainModule)
end;

initialization
  RegisterMainModuleClass(TUniMainModule);
end.
